home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / bbs / server / octps074 / script / pd_fan10.scr < prev    next >
Encoding:
Text File  |  1996-10-12  |  1.4 KB  |  62 lines
  1. #menulib
  2.  
  3. Submenu FAN10NET
  4. Entry [1]CHAT
  5. Entry [2]CLUBS
  6. Entry [3]COMMERCE
  7. Entry [4]DTP 
  8. Entry [5]FALCON 
  9. Entry [6]GAMES
  10. Entry [7]HARDWARE 
  11. Entry [8]INTERNET  
  12. Entry [9]JAGUAR 
  13. Entry [0]LOK_FILE  
  14. Entry [A]MAILER
  15. Entry [C]MIDI 
  16. Entry [D]MODEM 
  17. Entry [E]MULTI  
  18. Entry [G]NEWFILES
  19. Entry [H]PROGRAMM
  20. Entry [I]SOFTWARE 
  21. Entry [J]SHAREWREG
  22. Entry [K]TEST 
  23.  
  24. #endlib
  25.  
  26. :MSG_fan10net
  27. DrawMenu FAN10NET        Gosub draw_ascii_msg           
  28. DoMenu FAN10NET
  29.   SelectChoice
  30.     Case 1    SetMsgarea FAN.10.CHAT
  31.     Case 2    SetMsgarea FAN.10.CLUBS
  32.     Case 3    SetMsgarea FAN.10.COMMERCE
  33.     Case 4    SetMsgarea FAN.10.DTP
  34.     Case 5    SetMsgarea FAN.10.FALCON
  35.     Case 6    SetMsgarea FAN.10.GAMES
  36.     Case 7    SetMsgarea FAN.10.HARDWARE
  37.     Case 8    SetMsgarea FAN.10.INTERNET
  38.     Case 9    SetMsgarea FAN.10.JAGUAR
  39.     Case 0    SetMsgarea FAN.10.LOK_FILE
  40.     Case A    SetMsgarea FAN.10.MAILER
  41.     Case C    SetMsgarea FAN.10.MIDI
  42.     Case D    SetMsgarea FAN.10.MODEM
  43.     Case E    SetMsgarea FAN.10.MULTI
  44.     Case G    SetMsgarea FAN.10.NEWFILES
  45.     Case H    SetMsgarea FAN.10.PROGRAMM
  46.     Case I    SetMsgarea FAN.10.SOFTWARE
  47.     Case J    SetMsgarea FAN.10.SHAREWREG
  48.     Case K    SetMsgarea FAN.10.TEST
  49.     Common  Readmessages
  50.             Gosub draw_bbsinfo
  51.             DrawMenu Msgbase
  52.   EndSelect
  53. EnddoChoice MenuBarKeys
  54.  
  55. /* Remove the submenu */
  56. IfChoice CursLeft
  57.     RemoveMenu FAN10NET
  58.     ClrChoice               
  59. Endif
  60. Return
  61.  
  62.